Imports AccesoDatos.Sql
'Imports AccesoDatos.OleDb
Imports AccesoDatos.Interfaces

Public Class FabricaAccesoDatos

    Public Shared Function CrearManager(ByVal Tipo As ProveedorAD, ByVal ArchConfiguracion As String) As IManager
        Dim retorno As IManager = Nothing
        Select Case Tipo
            Case ProveedorAD.SqlServer
                retorno = New ManagerSQL(ArchConfiguracion)
                'Case ProveedorAD.OleDb
                '    retorno = New ManagerOleDb(ArchConfiguracion)
        End Select
        Return retorno
    End Function
End Class
